sync on : sync rate 60 : hide mouse:cls 0
autocam off
set global collision on
ObjectNumber=1
SecondObject=2
make object sphere ObjectNumber,10
color object ObjectNumber,rgb(0,255,0)
position object ObjectNumber, 0,0,0
set object collision on ObjectNumber
make object cone secondObject,10
xrotate object secondObject,90
fix object pivot secondObject
color object SecondObject,rgb(255,0,0)
position object SecondObject, 15,0,0
set object collision off SecondObject
make object collision box ObjectNumber, -5,-5,-5,5,5,5,0
make object collision box SecondObject, -5,-5,-5,5,5,5,0
while mouseclick()=0
if leftkey()=1 then turn object left SecondObject,1
if rightkey()=1 then turn object right SecondObject,1
if upkey()=1 and OBJECT HIT(SecondObject,0)=0 then move object SecondObject,1
if downkey()=1 and OBJECT HIT(SecondObject,0)=0 then move object SecondObject,-1
if spacekey()=1 then move camera 0,1
if returnkey()=1 then position object SecondObject,15,0,0
if OBJECT COLLISION(SecondObject,0)
print "OBJECT COLLISION"
print "GET OBJECT COLLISION X",GET OBJECT COLLISION X()
print "GET OBJECT COLLISION Y",GET OBJECT COLLISION y()
print "GET OBJECT COLLISION Z",GET OBJECT COLLISION z()
print "OBJECT COLLISION CENTER X",OBJECT COLLISION CENTER X(ObjectNumber)
print "OBJECT COLLISION CENTER Y",OBJECT COLLISION CENTER Y(ObjectNumber)
print "OBJECT COLLISION CENTER Z",OBJECT COLLISION CENTER Z(ObjectNumber)
print "OBJECT COLLISION RADIUS",OBJECT COLLISION RADIUS(ObjectNumber)
endif
position camera object position x(SecondObject),object position y(SecondObject)+50,object position z(SecondObject)
point camera object position x(SecondObject),0,object position z(SecondObject)
sync
endwhile
delete object collision box ObjectNumber
delete object collision box SecondObject
set global collision off
delete object ObjectNumber
delete object SecondObject
end
